home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1998 May / PCPlus May 1998=disk A.iso / full / CBUILDER / SAMS / SAMPLES / CHAP08 / ETMAIN.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-02-12  |  2.5 KB  |  76 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "ETMain.h"
  6. //---------------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8. TForm1 *Form1;
  9. //---------------------------------------------------------------------------
  10. __fastcall TForm1::TForm1(TComponent* Owner)
  11.   : TForm(Owner)
  12. {
  13. }
  14. //---------------------------------------------------------------------------
  15. void __fastcall TForm1::ClearAllClick(TObject *Sender)
  16. {
  17.     for (int i=0;i<ComponentCount;i++) {
  18.         TCheckBox* checkbox =
  19.         dynamic_cast<TCheckBox*>(Components[i]);
  20.     if (checkbox) checkbox->Checked = false;
  21.   }
  22.   ActiveControl = Memo;
  23.   Timer->Enabled = false;
  24. }
  25. //---------------------------------------------------------------------
  26. void __fastcall TForm1::MemoClick(TObject *Sender)
  27. {
  28.     MouseClick->Checked = true;
  29.   Timer->Enabled = true;
  30. }
  31. //---------------------------------------------------------------------
  32. void __fastcall TForm1::MemoDblClick(TObject *Sender)
  33. {
  34.     MouseDblClick->Checked = true;
  35.   Timer->Enabled = true;
  36. }
  37. //---------------------------------------------------------------------
  38. void __fastcall TForm1::MemoMouseDown(TObject *Sender, TMouseButton Button,
  39.       TShiftState Shift, Integer X, Integer Y)
  40. {
  41.     MouseDown->Checked = true;
  42.   Timer->Enabled = true;
  43. }
  44. //---------------------------------------------------------------------
  45. void __fastcall TForm1::MemoMouseUp(TObject *Sender, TMouseButton Button,
  46.       TShiftState Shift, Integer X, Integer Y)
  47. {
  48.     MouseUp->Checked = true;
  49.   Timer->Enabled = true;
  50. }
  51. //---------------------------------------------------------------------
  52. void __fastcall TForm1::MemoKeyDown(TObject *Sender, Word &Key,
  53.       TShiftState Shift)
  54. {
  55.     KeyDown->Checked = true;
  56.   Timer->Enabled = true;
  57. }
  58. //---------------------------------------------------------------------
  59. void __fastcall TForm1::MemoKeyPress(TObject *Sender, Char &Key)
  60. {
  61.     KeyPress->Checked = true;
  62.   Timer->Enabled = true;
  63. }
  64. //---------------------------------------------------------------------
  65. void __fastcall TForm1::MemoKeyUp(TObject *Sender, Word &Key,
  66.       TShiftState Shift)
  67. {
  68.     KeyUp->Checked = true;
  69.   Timer->Enabled = true;
  70. }
  71. //---------------------------------------------------------------------
  72. void __fastcall TForm1::TimerTimer(TObject *Sender)
  73. {
  74.   ClearAllClick(Sender);
  75. }
  76. //---------------------------------------------------------------------